home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G36F / G36_IMAR.Dxr / 00050.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.7 KB  |  145 lines
  1. global i, g_no, jumplistkey, jumplistkeyz
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 19
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8"]
  9.   set jumplistkeyz to ["Z1", "Z2", "Z3", "Z4", "Z5", "Z6", "Z7", "Z8"]
  10.   set volset to the soundLevel
  11.   if the soundEnabled = 0 then
  12.     set the soundEnabled to 1
  13.   end if
  14. end
  15.  
  16. on donext
  17.   if (g_no + 1) = 9 then
  18.     set g_no to 0
  19.   end if
  20.   go(getAt(jumplistkey, g_no + 1))
  21. end
  22.  
  23. on doback
  24.   if (g_no - 1) = 0 then
  25.     set g_no to 9
  26.   end if
  27.   go(getAt(jumplistkey, g_no - 1))
  28. end
  29.  
  30. on donextz
  31.   if (g_no + 1) = 9 then
  32.     set g_no to 0
  33.   end if
  34.   go(getAt(jumplistkeyz, g_no + 1))
  35. end
  36.  
  37. on dobackz
  38.   if (g_no - 1) = 0 then
  39.     set g_no to 9
  40.   end if
  41.   go(getAt(jumplistkeyz, g_no - 1))
  42. end
  43.  
  44. on doexit
  45.   sound stop 1
  46.   go("M1", "@::JMACMENU")
  47. end
  48.  
  49. on dolinkm
  50.   sound stop 1
  51.   go(1, "AS36IMAR")
  52. end
  53.  
  54. on crtopen1
  55.   puppetSprite(7, 1)
  56.   repeat while the stillDown
  57.     set the memberNum of sprite 7 to 6
  58.     updateStage()
  59.   end repeat
  60.   set the memberNum of sprite 7 to 5
  61.   updateStage()
  62.   puppetSprite(7, 0)
  63. end
  64.  
  65. on crtopen2
  66.   puppetSprite(9, 1)
  67.   repeat while the stillDown
  68.     set the memberNum of sprite 9 to 10
  69.     updateStage()
  70.   end repeat
  71.   set the memberNum of sprite 9 to 9
  72.   updateStage()
  73.   puppetSprite(9, 0)
  74. end
  75.  
  76. on crtclose
  77.   puppetSprite(8, 1)
  78.   repeat while the stillDown
  79.     set the memberNum of sprite 8 to 8
  80.     updateStage()
  81.   end repeat
  82.   set the memberNum of sprite 8 to 7
  83.   updateStage()
  84.   puppetSprite(8, 0)
  85. end
  86.  
  87. on crtback
  88.   puppetSprite(21, 1)
  89.   repeat while the stillDown
  90.     set the memberNum of sprite 21 to 15
  91.     updateStage()
  92.   end repeat
  93.   set the memberNum of sprite 21 to 14
  94.   updateStage()
  95.   puppetSprite(21, 0)
  96.   puppetSprite(1, 0)
  97. end
  98.  
  99. on crtnext
  100.   puppetSprite(20, 1)
  101.   repeat while the stillDown
  102.     set the memberNum of sprite 20 to 13
  103.     updateStage()
  104.   end repeat
  105.   set the memberNum of sprite 20 to 12
  106.   updateStage()
  107.   puppetSprite(20, 0)
  108.   puppetSprite(1, 0)
  109. end
  110.  
  111. on crtclose2
  112.   puppetSprite(22, 1)
  113.   repeat while the stillDown
  114.     set the memberNum of sprite 22 to 17
  115.     updateStage()
  116.   end repeat
  117.   set the memberNum of sprite 22 to 16
  118.   updateStage()
  119.   puppetSprite(22, 0)
  120.   puppetSprite(1, 0)
  121. end
  122.  
  123. on crtzoomin
  124.   puppetSprite(23, 1)
  125.   repeat while the stillDown
  126.     set the memberNum of sprite 23 to 19
  127.     updateStage()
  128.   end repeat
  129.   set the memberNum of sprite 23 to 18
  130.   updateStage()
  131.   puppetSprite(23, 0)
  132. end
  133.  
  134. on crtzoomout
  135.   puppetSprite(23, 1)
  136.   repeat while the stillDown
  137.     set the memberNum of sprite 23 to 33
  138.     updateStage()
  139.   end repeat
  140.   set the memberNum of sprite 23 to 32
  141.   updateStage()
  142.   puppetSprite(23, 0)
  143.   puppetSprite(1, 0)
  144. end
  145.